home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 207 / 207.d81 / b.tricks ii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  13.9 KB  |  401 lines
  1. 100 poke53281,0:poke53280,0:print"[147]"
  2. 105 poke56,128:clr
  3. 107 dv=peek(186):ifdv<8thendv=8
  4. 110 sys57812"tricks.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 111 sys57812"tricks font 1",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  6. 112 sys57812"tricks font 2",dv,0:poke780,0:poke781,0:poke782,152:sys65493
  7. 120 s1=34816:s2=36864:s3=38912:s9=51200:poke648,128:print"[147]";:sys49152,s1
  8. 130 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1:rem bank #2
  9. 140 poke53272,2:poke650,128
  10. 147 rem machine language routines:
  11. 150 cr=49152:rem copyrom
  12. 160 cs=49251:rem clearset
  13. 170 rs=49277:rem rstorset
  14. 180 fo=49442:rem fadeout
  15. 190 fi=49477:rem fadein
  16. 200 rv=49674:rem rvrseset
  17. 210 xs=49722:rem xorset
  18. 220 sw=49778:rem scrwedge
  19. 225 wo=50009:rem wedgeoff
  20. 230 ss=50022:rem spredset
  21. 240 rb=50084:rem rubset
  22. 250 rt=50276:rem rtrveset
  23. 260 rm=50301:rem rembrset
  24. 270 r1=50171:rem scrnfill
  25. 280 r2=50224:rem colrfill
  26. 285 dima$(7),a(7),b$(13,2),b(20),c(10),c$(6,9),d(8):q$=chr$(34)
  27. 290 a$(1)="[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
  28. 300 a$(2)="[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"
  29. 310 a$(3)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  30. 320 a$(4)="**************************************"
  31. 330 a$(5)="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
  32. 340 a$(6)="[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]"
  33. 350 a$(7)="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  34. 360 fora=1to7:reada(a):next:fora=1to13:forb=1to2:readb$(a,b):next:next
  35. 370 fora=1to10:readc(a):next
  36. 380 fora=0to9:c$(6,a)="[215][215][215][215][215][215][215][215][215][215]":next
  37. 390 fora=0to5:forb=0to9:reada$:c$(a,b)=""+a$:next:next
  38. 400 fora=1to8:readd(a):next
  39. 499 rem display copyright notice
  40. 500 rem
  41. 510 al=1:print"[147]":sysrm,s2:syscs,s1
  42. 512 fora=1to10:poke646,c(a):print"-here's more stuff for your programs!-":next
  43. 515 printtab(2)"                                    "
  44. 520 printtab(2)"[154]          character tricks          "
  45. 525 printtab(2)"[154]                 by                 "
  46. 530 printtab(2)"[154]     john william harris (tmg)      "
  47. 540 printtab(2)"[154]      @ 1991 by softdisk, inc.      "
  48. 550 printtab(2)"[154]     published on loadstar 207!     "
  49. 560 printtab(2)"[154]   subscriptions : 1-719-537-6484   "
  50. 570 printtab(2)"[154]          www.loadstar.com           "
  51. 580 printtab(2)"[159]                                    "
  52. 590 sysrs,s1:f=0
  53. 600 printtab(9)"[158]---- press a key! ----":ct=700
  54. 610 geta$:ifa$=""thenct=ct-1:ifct>0then610
  55. 620 ifa$<>""then1000
  56. 630 syscr,s9:sysrs,s1:geta$:ifa$<>""then1000
  57. 640 sysrm,s2:sysrs,s1:geta$:ifa$<>""then1000
  58. 650 sysrm,s3:sysrs,s1:geta$:ifa$<>""then1000
  59. 660 goto630
  60. 1000 syscs,s1:print"[147]";:sysrm,s2:g=int(rnd(1)*7)+1:sysr1,a(g):h=int(rnd(1)*15)+1
  61. 1010 sysr2,h
  62. 1030 print"[150][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  63. 1040 fora=1to21:print"[150][221]                                    [221]":next
  64. 1050 print"[150][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  65. 1100 print"[159]character tricks: johnny's tricks ii"
  66. 1110 print"[150]use the [159]joystick[150] or [159]cursor keys[150] to"
  67. 1120 print"choose something, then press [158]fire[150] or"
  68. 1130 print"[158]return[150] to confirm your selection."
  69. 1140 print"[150][213][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  70. 1150 fora=1to13:print"[221][159] [150][221]                                [221]":next
  71. 1160 print"[171][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][179]"
  72. 1170 print"[153]introduction"
  73. 1175 print"[153]screen and color fill...again?"
  74. 1180 print"1[146][154]the rom-copy routine"
  75. 1190 print"2[146][154]slide off & slide on"
  76. 1210 print"3[146][154]fade out and in"
  77. 1220 print"4[146][154]reverse a set[146]"
  78. 1230 print"5[146][154]xor:for the techie in some of us"
  79. 1240 print"6[146][154]the interrupt wedge"
  80. 1250 print"7[146][154]spread-warning:very fattening "
  81. 1260 print"8[146][154]rub-this baby slices and dices"
  82. 1270 print"9[146][154]retrieve and remember"
  83. 1280 print"just about everything...yikes!!"
  84. 1290 print"[159]leaving already? [158]loadstar"
  85. 1292 print"[155]"b$(al,1):print""b$(al,2)
  86. 1300 a=33011+al*40:b=al:c=22528:pokea+c,3:pokea,68:sysrs,s1:syssw,s1+a(g)*8,1
  87. 1305 poke198,0
  88. 1310 d=peek(56320):ifd=127then1400
  89. 1320 ifd=126thengosub1500
  90. 1330 ifd=125thengosub1600
  91. 1340 ifd=111then1700
  92. 1345 goto1310
  93. 1400 geta$:ifa$="[145]"thengosub1500
  94. 1410 ifa$=""thengosub1600
  95. 1420 ifa$=chr$(13)then1700
  96. 1425 ifa$=" "then1800
  97. 1430 ifval(a$)=.then1310
  98. 1440 onval(a$)gosub40000,41000,42000,43000,44000,45000,46000,47000,48000
  99. 1450 goto1310
  100. 1500 ifb>1thenpokea,32:b=b-1:a=a-40:pokea+c,3:pokea,68
  101. 1510 print"":poke214,20:print:print"[155]"b$(b,1)
  102. 1520 print""b$(b,2)"";:return
  103. 1600 ifb<13thenpokea,32:b=b+1:a=a+40:pokea+c,3:pokea,68
  104. 1610 print"":poke214,20:print:print"[155]"b$(b,1)
  105. 1620 print""b$(b,2)"";:return
  106. 1700 al=b:ifb=13then14000
  107. 1701 a$=left$(a$(g),3):b$=right$(a$(g),2)
  108. 1702 c$=a$+""+b$
  109. 1704 poke646,h:print"";:fora=1tob+6:printa$(g):next:printc$
  110. 1705 fora=b+8to24:printa$(g):next:print"";
  111. 1706 sysr2,1:fore=1to15:pokea,69:sysr2,6:pokea,68:sysr2,3:next
  112. 1707 sysr2,1:sysr2,15:sysr2,12:sysr2,11:sysr2,0:sysr1,32:syswo
  113. 1710 onbgoto2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000
  114. 1800 sysrm,s3:sysfo,s1,1:sysfi,s1,1:s4=s2:s2=s3:s3=s4:goto1310
  115. 2000 rem
  116. 2010 gosub21000
  117. 2035 print"i n t r o d u c t i o n"
  118. 2040 print"[150]another set of interesting,"
  119. 2050 print"unusual and weird ml graphics"
  120. 2060 print"routines to use in your own"
  121. 2070 print"programs.  most of these routines"
  122. 2080 print"require a custom character set, or"
  123. 2090 print"at least a copy of the built-in rom"
  124. 2100 print"set, to be effective.  thus, a bit"
  125. 2110 print"more programming experience might be"
  126. 2120 print"necessary to make any use of these"
  127. 2130 print"routines."
  128. 2140 print"most of the choices from the main"
  129. 2150 print"menu show off one or two routines."
  130. 2160 print"they also give some information"
  131. 2170 print"about it, and show some ways it"
  132. 2180 print"could be used. see the instruction"
  133. 2190 print"file for more about each routine."
  134. 2200 print""tab(5)"[153]press [158]fire[153] or [158]return[153] to go on"
  135. 2210 gosub20000:gosub21000
  136. 2220 print""tab(10)"introduction page 2"
  137. 2230 print"[150]abbreviations:"
  138. 2240 print""tab(8)"css-character set start"
  139. 2250 print""tab(6)"sp-speed routine operates at"
  140. 2260 print"one last thing: to swap the two"
  141. 2270 print"character sets the program uses,"
  142. 2280 print"press [158]space[150] from the menu screen."
  143. 2290 print"[153]press [158]fire[153] or [158]return[153] for the menu."
  144. 2300 gosub20000:goto1000
  145. 3000 print"[159]note-you might remember these from the"
  146. 3010 print"previous program. they're back, not"
  147. 3020 print"because of public demand or anything"
  148. 3030 print"like that, but because they make"
  149. 3040 print"programming this demo easier."
  150. 3050 fora=1to5000:next
  151. 3060 fora=1to26:sysr1,a:sysr2,int(rnd(1)*16):next:goto1000
  152. 4000 gosub21000:print""tab(6)"c o p y  t h e  r o m  s e t"
  153. 4010 print"[150]a quick sys to 49152, followed by"
  154. 4020 print"a comma, and the address of where"
  155. 4030 print"you want it, and your five-and-a"
  156. 4040 print"-half hour character set copying"
  157. 4050 print"troubles are over!"
  158. 4060 print""tab(5)"[150]press [158]fire[150] or [158]return[150] to go on"
  159. 4070 gosub20000:gosub21000:print"[158]observe:"
  160. 4080 fora=1to5:print"abcdefghijklmnopqrstuvwxyz1234567890":next
  161. 4090 fora=1to1000:next:print"this is a custom set."
  162. 4100 fora=1to3500:next:syscr,s1
  163. 4110 print"and this is the rom set, copied":print"over it."
  164. 4120 fora=1to4000:next:print"not very entertaining, but it"
  165. 4130 print"gets better.":fora=1to3000:next:goto1000
  166. 5000 gosub21000:print""tab(6)"s l i d e  o f f  a n d  o n"
  167. 5010 print"you've probably seen just about"
  168. 5020 print"enough of this particular routine,"
  169. 5030 print"eh?":fora=1to3000:next
  170. 5040 sysrm,s1:syscs,s1:fora=1to250:next:gosub21000
  171. 5050 print"oh, and you can use it in reverse"
  172. 5060 print"as well.":sysrs,s1
  173. 5070 fora=1to3000:next:goto1000
  174. 6000 sysr1,int(rnd(1)*256):sysr2,7
  175. 6005 print""tab(7)"f a d e  o u t  a n d  i n"
  176. 6010 print"i just gotta say i like this one"
  177. 6020 fora=1to3000:next:sysfo,s1,10:sysr1,int(rnd(1)*256):sysr2,3
  178. 6030 print"you can fade stuff back in as well."
  179. 6035 print"and who said you hadda stick with"
  180. 6037 print"just one character set?"
  181. 6040 sysrm,s3:sysfi,s1,5:fora=1to5000:next:goto1000
  182. 7000 sysr1,int(rnd(1)*128):sysr2,10
  183. 7005 print""tab(8)"[158]r e v e r s e  a  s e t"
  184. 7010 print"i know, you can do this by just"
  185. 7020 print"adding 128 to every character on"
  186. 7030 print"the screen.  but this is better"
  187. 7040 print"because (a) it reverses the"
  188. 7050 print"screen no matter what the upper 128"
  189. 7060 print"characters might happen to be, and"
  190. 7070 print"(b) it's more fun."
  191. 7080 fora=1to5500:next:fora=1to100:sysrv,s1:next:goto1000
  192. 8000 gosub21000
  193. 8005 print""tab(6)"t h e  x o r  r o u t i n e"
  194. 8010 print"xor's every byte in the set by a"
  195. 8020 print"specified number.  it's actually"
  196. 8030 print"more helpful than it sounds, since"
  197. 8040 print"you can, in a limited way, make"
  198. 8050 print"up your own effects.  here are a few"
  199. 8060 print"examples..."
  200. 8070 fora=1to5500:next:forb=1to2:fora=0to7:sysxs,s1,2^a:next:forc=1to1000:next
  201. 8080 next
  202. 8090 fora=0to7:sysxs,s1,2^aor2^(7-a):next:fora=1to1000:next
  203. 8100 fora=1to20:b(a)=int(rnd(1)*256):sysxs,s1,b(a):next
  204. 8110 fora=1to1000:next:fora=1to20:sysxs,s1,b(a):next
  205. 8120 fora=1to2000:next:goto1000
  206. 9000 a=int(rnd(1)*128)+128:sysr1,a:sysr2,6:b=d(int(rnd(1)*8)+1):c=s1+a*8:d=0:e=0
  207. 9002 syssw,c,b
  208. 9005 print""tab(2)"t h e  i n t e r r u p t  w e d g e"
  209. 9010 print"[154]works in the background, so you"
  210. 9020 print"don't have to worry about it."
  211. 9030 print"it's got a few bells and whistles,"
  212. 9040 print"too."
  213. 9050 print"press '1' to change direction,"
  214. 9060 print"'2' to activate joystick mode, and"
  215. 9070 print"'3' to start the flashing."
  216. 9080 print"[158]fire[154] or [158]return[154] returns to the menu."
  217. 9090 geta$:ifa$="1"thenb=d(int(rnd(1)*8)+1):goto9500
  218. 9100 ifa$="2"thend=not d:goto9500
  219. 9110 ifa$="3"thene=not e:goto9500
  220. 9120 ifa$=chr$(13)orpeek(56320)=111thensyswo:goto1000
  221. 9130 goto9090
  222. 9500 poke53280,1:syssw,c,b+abs(d)*16+abs(e)*32:poke53280,0:goto9090
  223. 10000 sysr1,78:sysr2,3:print"[159]"tab(14)"s[206]p[206]r[206]e[206]a[206]d"
  224. 10010 print""q$"expands"q$"[206]every[206]character[206]in[206]the[206]set."
  225. 10020 print"most[206]impressive[206]on[206]tall[206]characters"
  226. 10030 print"like[206]letters[206]&[206]graphics[206]symbols."
  227. 10035 fora=1to5500:next:fora=1to8:sysss,s1:next:goto1000
  228. 11000 gosub21000
  229. 11005 print""tab(17)"r u b"
  230. 11010 print"[154]hey, thinking up names for these"
  231. 11020 print"things isn't easy!  what would you"
  232. 11030 print"call it, anyway?"
  233. 11040 fora=1to3500:next:sysrb,s1:goto1000
  234. 12000 gosub21000
  235. 12005 print""tab(10)"retrieve and remember"
  236. 12010 print"[159]you use these routines to make"
  237. 12020 print"sort of a buffer to hold the"
  238. 12030 print"character sets you want the routines"
  239. 12040 print"to work with.  you see, when most"
  240. 12050 print"effects are used, the character set"
  241. 12060 print"involved is often destroyed, so if"
  242. 12070 print"you want to keep the set, you'll"
  243. 12080 print"have to make a copy of it so you can"
  244. 12090 print"put it back in place later. retrieve"
  245. 12100 print"copies a set into the buffer, and"
  246. 12110 print"remember puts it wherever you want."
  247. 12140 printtab(10)"press [158]fire[159] or [158]return[159]"
  248. 12150 gosub20000:fora=1to25:sysrm,s2:sysrt,s1:sysrm,s3:sysrt,s1:next
  249. 12160 goto1000
  250. 13000 sysrm,s3:syscs,s1:gosub13500:sysfi,s1,20:syssw,35504,d(int(rnd(1)*8)+1)
  251. 13010 fora=5to0step-1:forb=0to9:print"[153]"c$(a,b):ifa=0thensyswo
  252. 13020 next:forb=1to1500:next:print"[145][145][145][145][145][145][145][145][145][145]";:next
  253. 13050 sysr1,102:fora=1to7:sysr2,a:sysxs,s1,int(rnd(1)*256):sysrv,s1:next
  254. 13060 fora=1to20:sysrv,s1:sysr2,int(rnd(1)*15)+1:next
  255. 13070 syssw,35600,36:syscs,s1:sysr1,98:sysr2,3:sysrm,s3:sysrs,s1
  256. 13080 fora=1to15:forb=1to700:next:sysxs,s1,int(rnd(1)*256):next
  257. 13090 syswo:fora=1to8:sysss,s1:next:sysrb,s1:goto1000
  258. 13500 print"[147][159][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
  259. 13510 fora=1to23:print"[165][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][167]":next
  260. 13520 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]";
  261. 13530 print""tab(5)"[154][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
  262. 13540 printtab(4)"[214][154][165][150]t i m e   t o   i m p a c t :[154][167]"
  263. 13550 printtab(4)"[214][154][204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
  264. 13560 printtab(4)"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
  265. 13570 print""tab(14)"[159][207][163][163][163][163][163][163][163][163][163][163][208]"
  266. 13580 fora=1to10:printtab(13)"[214][159][165][153][215][215][215][215][215][215][215][215][215][215][159][167]":next
  267. 13590 printtab(13)"[214][159][204][164][164][164][164][164][164][164][164][164][164][186]":printtab(13)"[214][214][214][214][214][214][214][214][214][214][214][214]"
  268. 13600 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":return
  269. 14000 syswo:sysfo,s1,3:sysr1,int(rnd(1)*64)+192:sysr2,7
  270. 14005 gosub21000:print"[154]are you sure that you want to go to"
  271. 14010 print"[159] l   o   a   d   s   t   a   r "
  272. 14020 printtab(17)"[153](y/n)?":sysrm,s2:sysfi,s1,1
  273. 14030 geta$:ifa$="n"then1000
  274. 14040 ifa$<>"y"then14030
  275. 14050 fora=0to11:sysrv,s1:next
  276. 14060 sysfo,s1,20:print"[147]";:sysrt,s1:poke648,4:print"[147]";
  277. 14070 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  278. 14080 goto40005:rempoke56,160:clr:open15,8,15,"r0:hello connect=hello connect"
  279. 14090 input#15,a$,b$,c$,d$:close15:ifa$<>"63"thenend
  280. 14100 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  281. 14110 print"run"
  282. 14120 poke631,13:poke632,13:poke198,2:end
  283. 19999 rem wait for fire or return
  284. 20000 geta$:ifa$<>chr$(13)andpeek(56320)<>111then20000
  285. 20010 return
  286. 21000 print"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  287. 21010 fora=1to23:print"[194]                                    [194]":next
  288. 21020 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";:return
  289. 30000 data86,91,102,42,37,87,98
  290. 30010 data"      --- read this first ---       "
  291. 30015 data"+ press a number key for a preview +"
  292. 30020 data"  and doesn't this look familiar?   "
  293. 30025 data"usage:sys50171,char & sys50224,color"
  294. 30030 data" it's too slow to do this in basic  "
  295. 30035 data"           sys 49152,css            "
  296. 30040 data"you saw it on the copyright notice. "
  297. 30045 data"    sys 49251,css & sys49277,css    "
  298. 30050 data"  a pixel-by-pixel fade out effect  "
  299. 30055 data"sys 49442,css,sp & sys 49477,css,sp "
  300. 30060 data" reverses the entire character set  "
  301. 30065 data"           sys 49674,css            "
  302. 30070 data"   more useful than it sounds...    "
  303. 30075 data"   sys 49722,css,# to be 'xor'ed    "
  304. 30080 data"scrolling backgrounds for your prog."
  305. 30085 data"   - - - s e e   t e x t ! - - -    "
  306. 30090 data"    makes the characters 'grow'     "
  307. 30095 data"  for a=1 to 8:sys 50022,css:next   "
  308. 30100 data"       pulls characters apart       "
  309. 30105 data"           sys 50084,css            "
  310. 30110 data" lets you move and use sets easily  "
  311. 30115 data" sys 50276,css and sys 50301,css  "
  312. 30120 data"  have your protective goggles on?  "
  313. 30125 data"                                    "
  314. 30130 data"         i'll be seeing ya!         "
  315. 30135 data"                                    "
  316. 30160 data0,6,14,3,13,1,13,3,14,6
  317. 31000 data"[215][215][215][209][209][209][209][209][215][215]"
  318. 31010 data"[215][215][209][209][209][209][215][215][209][215]"
  319. 31020 data"[215][209][209][209][209][215][215][215][209][209]"
  320. 31030 data"[215][209][209][209][209][215][215][209][215][209]"
  321. 31040 data"[215][209][209][209][209][215][209][215][215][209]"
  322. 31050 data"[215][209][209][209][209][209][215][215][215][209]"
  323. 31060 data"[215][209][209][209][209][215][215][215][215][209]"
  324. 31070 data"[215][215][209][209][209][209][215][215][209][215]"
  325. 31080 data"[215][215][215][209][209][209][209][209][215][215]"
  326. 31090 data"[215][215][215][215][215][215][215][215][215][215]"
  327. 31100 data"[215][215][215][215][209][209][209][215][215][215]"
  328. 31110 data"[215][215][215][209][209][209][209][215][215][215]"
  329. 31120 data"[215][215][209][209][209][209][209][215][215][215]"
  330. 31130 data"[215][209][209][209][209][209][209][215][215][215]"
  331. 31140 data"[215][215][215][215][209][209][209][215][215][215]"
  332. 31150 data"[215][215][215][215][209][209][209][215][215][215]"
  333. 31160 data"[215][215][215][215][209][209][209][215][215][215]"
  334. 31170 data"[215][215][215][215][209][209][209][215][215][215]"
  335. 31180 data"[215][209][209][209][209][209][209][209][209][209]"
  336. 31190 data"[215][215][215][215][215][215][215][215][215][215]"
  337. 31200 data"[215][215][209][209][209][209][209][209][209][215]"
  338. 31210 data"[215][209][209][209][209][215][215][215][215][209]"
  339. 31220 data"[215][215][215][215][215][215][215][215][215][209]"
  340. 31230 data"[215][215][215][215][215][209][209][209][209][215]"
  341. 31240 data"[215][215][215][215][209][209][209][209][215][215]"
  342. 31250 data"[215][215][215][209][209][209][209][215][215][215]"
  343. 31260 data"[215][215][209][209][209][209][215][215][215][215]"
  344. 31270 data"[215][209][209][209][209][215][215][215][215][209]"
  345. 31280 data"[215][209][209][209][209][209][209][209][209][209]"
  346. 31290 data"[215][215][215][215][215][215][215][215][215][215]"
  347. 31300 data"[215][215][209][209][209][209][209][209][209][215]"
  348. 31310 data"[215][209][209][209][209][215][215][215][215][209]"
  349. 31320 data"[215][215][215][215][215][215][215][215][215][209]"
  350. 31330 data"[215][215][215][215][215][215][215][215][215][209]"
  351. 31340 data"[215][215][215][215][215][215][209][209][209][215]"
  352. 31350 data"[215][215][215][215][215][215][215][215][215][209]"
  353. 31360 data"[215][215][215][215][215][215][215][215][215][209]"
  354. 31370 data"[215][209][209][209][209][215][215][215][215][209]"
  355. 31380 data"[215][215][209][209][209][209][209][209][209][215]"
  356. 31390 data"[215][215][215][215][215][215][215][215][215][215]"
  357. 31400 data"[215][215][215][215][209][209][209][209][209][215]"
  358. 31410 data"[215][215][215][209][209][209][209][215][209][215]"
  359. 31420 data"[215][215][209][209][209][209][215][215][209][215]"
  360. 31430 data"[215][209][209][209][209][215][215][215][209][215]"
  361. 31440 data"[215][209][209][209][209][209][209][209][209][209]"
  362. 31450 data"[215][215][215][215][215][215][215][215][209][215]"
  363. 31460 data"[215][215][215][215][215][215][215][215][209][215]"
  364. 31470 data"[215][215][215][215][215][215][215][215][209][215]"
  365. 31480 data"[215][215][215][215][215][215][215][215][209][215]"
  366. 31490 data"[215][215][215][215][215][215][215][215][215][215]"
  367. 31500 data"[215][209][209][209][209][209][209][209][209][209]"
  368. 31510 data"[215][209][209][209][209][215][215][215][215][215]"
  369. 31520 data"[215][209][209][209][209][215][215][215][215][215]"
  370. 31530 data"[215][209][209][209][209][209][209][209][209][215]"
  371. 31540 data"[215][215][215][215][215][215][215][215][215][209]"
  372. 31550 data"[215][215][215][215][215][215][215][215][215][209]"
  373. 31560 data"[215][215][215][215][215][215][215][215][215][209]"
  374. 31570 data"[215][209][209][209][209][215][215][215][215][209]"
  375. 31580 data"[215][215][209][209][209][209][209][209][209][215]"
  376. 31590 data"[215][215][215][215][215][215][215][215][215][215]"
  377. 31600 data1,9,8,10,2,6,4,5
  378. 39999 syscr,s1:return
  379. 40000 syscr,s1:return
  380. 40005 fori=0to21:poke828+i,8+i:next
  381. 40010 ifdv<8ordv>29ordv=8then40030
  382. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  383. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  384. 40040 close2:open2,i,2:close2:ifstthen40060
  385. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  386. 40060 next:print"[147]":poke53272,23:poke186,8:end
  387. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  388. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  389. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  390. 41000 syscr,s9:syscs,s1:sysrs,s1:sysrm,s3:sysrs,s1:sysrm,s2:sysrs,s1:return
  391. 42000 z=int(rnd(1)*10)+1:sysrm,s1:sysfo,s1,z:sysfi,s1,z:return
  392. 43000 sysrv,s1:return
  393. 44000 y=(int(rnd(1)*2))*85:z=(int(rnd(1)*2))*170:x=yorz
  394. 44010 sysxs,s1,x:return
  395. 45000 syssw,s1+a(g)*8,d(int(rnd(1)*8)+1)orint(rnd(1)*2)*32:return
  396. 46000 sysrm,s1:forx=1to8:fory=1toint(rnd(1)*100):next
  397. 46010 sysss,s1:next:sysrs,s1:return
  398. 47000 sysrm,s1:sysrb,s1:sysrs,s1:return
  399. 48000 sysrm,s3:sysrt,s1:sysrm,s2:sysrt,s1:return
  400. 60000 d=peek(186):n$="b.tricks ii":open15,d,15,"s0:"+n$:close15:saven$,d:end
  401.